Private Casting/Casting One.bin/Docs/Shop/vmag.dir/Internal_30.ls

Text File | 1998-02-21 | 419 b | 20 lines

on mouseEnter
  cursor([cast "curs", cast "mask"])
end

on mouseLeave
  cursor(-1)
end

on mouseDown
  repeat while the mouseDown
    if (the scrollTop of member the castNum of sprite 17 + 150) < the height of member the castNum of sprite 17 then
      set the scrollTop of member the castNum of sprite 17 to the scrollTop of member the castNum of sprite 17 + 2
    end if
  end repeat
end

on mouseUp
  cursor(-1)
end